home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / ifx / MotionBlur_IFX.lha / MotionBlur_IFX.ifx next >
Encoding:
Text File  |  2000-07-02  |  3.3 KB  |  141 lines
  1. /*
  2.  * $VER: MotionBlur v1.7 Copyright © 2000 Robert Nilsson 05.05.00
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Robert Nilsson <robert.nilsson@mbox306.swipnet.se>
  6.  *
  7.  * This script takes one frame and then composes a selectable number of the
  8.  * next frame and blurs them with the first on.
  9.  * Creating a nice Motionblur
  10.  *
  11.  */
  12.  
  13. OPTIONS RESULTS
  14.  
  15. RequestFile '"Input Basename..."'
  16. IF rc ~= 0 THEN EXIT
  17. input = result
  18.  
  19. RequestNumber '"Number of digits after the base name (Load)"' 4 1000 30
  20. IF rc ~= 0 THEN EXIT
  21. znuml = result
  22.  
  23. RequestNumber '"Start Frame"' 0 1000 30
  24. IF rc ~= 0 THEN EXIT
  25. startf = result
  26.  
  27. RequestFile '"Output Basename..."'
  28. IF rc ~= 0 THEN EXIT
  29. sparaklarfil = result
  30.  
  31. RequestNumber '"Number of digits after the base name (Save)"' 4 1000 30
  32. IF rc ~= 0 THEN EXIT
  33. znums = result
  34.  
  35. RequestNumber '"Total Number of frames..."' 100 10000 30
  36. IF rc ~= 0 THEN EXIT
  37. frames = result
  38.  
  39. RequestNumber '"Number of frames to be blurred"' 9 1000 30
  40. IF rc ~= 0 THEN EXIT
  41. mblurstart = result
  42.  
  43. RequestNumber '"Save Image Format:   1-ILBM   2-JPEG   3-YUV"' 1 1000 30
  44. IF rc ~= 0 THEN EXIT
  45. sform = result
  46.  
  47. sparfil = "t:motionblurtmp.iff"
  48. k = 0
  49. SetPrefs Undo Off
  50. Redraw Off
  51. BeginBar
  52.  
  53. IF startf = 1 THEN
  54. DO i = 1 TO frames
  55.  
  56.    bl=50
  57.    num = RIGHT(i,znuml,'0')
  58.    Message 'Loading image to blur' num
  59.  
  60.    LoadBuffer input||num
  61.  
  62.    j = 0
  63.  
  64.    IF i = 1 THEN mblur = mblurstart-1
  65.    ELSE mblur = mblurstart
  66.  
  67.    DO j = 1 TO mblur
  68.      i = i + 1
  69.      nummer = RIGHT(i,znuml,'0')
  70.      SaveBufferAs ILBM sparfil FORCE
  71.      message 'Processing Frame: ' num '  -  Save Temporary Image'
  72.      LoadBuffer input||nummer
  73.      message 'Processing Frame: ' num '  -  Load Swap Image' j
  74.      Buffer2Swap
  75.      KillBuffer FORCE
  76.      LoadBuffer sparfil
  77.      message 'Processing Frame: ' num '  -  Load Temporary Image'
  78.      bl = bl % 1.5
  79.      message 'Processing Frame: ' num '  -  Merging Images'
  80.      Merge bl
  81.      KillSwap FORCE
  82.  
  83.    END
  84.    message 'Processing Frame: ' num '  -  Saving Frame' k
  85.    k = k + 1
  86.    sparanummer = RIGHT(k,znums,'0')
  87.    IF sform = 1 THEN SaveBufferAs ILBM sparaklarfil||sparanummer FORCE
  88.    IF sform = 2 THEN SaveBufferAs JPEG sparaklarfil||sparanummer FORCE 100 BEST
  89.    IF sform = 3 THEN SaveBufferAs YUV sparaklarfil||sparanummer FORCE
  90.    ELSE message 'Unknown File format'
  91. END
  92.  
  93. ELSE
  94. DO i = 0 TO frames
  95.  
  96.    bl=50
  97.    num = RIGHT(i,znuml,'0')
  98.    Message 'Loading image to blur' num
  99.  
  100.    LoadBuffer input||num
  101.  
  102.    j = 0
  103.  
  104.  
  105.    mblur = mblurstart
  106.  
  107.    DO j = 1 TO mblur
  108.      i = i + 1
  109.      nummer = RIGHT(i,znuml,'0')
  110.      SaveBufferAs ILBM sparfil FORCE
  111.      message 'Processing Frame: ' num '  -  Save Temporary Image'
  112.      LoadBuffer input||nummer
  113.      message 'Processing Frame: ' num '  -  Load Swap Image' j
  114.      Buffer2Swap
  115.      KillBuffer FORCE
  116.      LoadBuffer sparfil
  117.      message 'Processing Frame: ' num '  -  Load Temporary Image'
  118.      bl = bl % 1.5
  119.      message 'Processing Frame: ' num '  -  Merging Images'
  120.      Merge bl
  121.      KillSwap FORCE
  122.  
  123.    END
  124.    message 'Processing Frame: ' num '  -  Saving Frame' k
  125.    k = k + 1
  126.    sparanummer = RIGHT(k,znums,'0')
  127.    IF sform = 1 THEN SaveBufferAs ILBM sparaklarfil||sparanummer FORCE
  128.    IF sform = 2 THEN SaveBufferAs JPEG sparaklarfil||sparanummer FORCE 100 BEST
  129.    IF sform = 3 THEN SaveBufferAs YUV sparaklarfil||sparanummer FORCE
  130.    ELSE message 'Unknown File format'
  131. END
  132.  
  133.  
  134.  
  135. Redraw On
  136. EndBar
  137.  
  138.  
  139. SetPrefs Undo On
  140. EXIT
  141.